home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 2.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 32 33 3a 34 | 37 20 31 39 39 35 0a 3b | 14:23:4|7 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 73 75 | 6e 70 72 6f 2f 73 75 6e |/lisp/su|npro/sun|
|00000090| 70 72 6f 2d 73 70 61 72 | 63 77 6f 72 6b 73 2e 65 |pro-spar|cworks.e|
|000000a0| 6c 0a 3b 3b 3b 20 65 6d | 61 63 73 20 76 65 72 73 |l.;;; em|acs vers|
|000000b0| 69 6f 6e 20 31 39 2e 31 | 33 20 58 45 6d 61 63 73 |ion 19.1|3 XEmacs|
|000000c0| 20 4c 75 63 69 64 2e 0a | 3b 3b 3b 20 62 79 74 65 | Lucid..|;;; byte|
|000000d0| 63 6f 6d 70 20 76 65 72 | 73 69 6f 6e 20 32 2e 32 |comp ver|sion 2.2|
|000000e0| 35 3b 20 31 2d 53 65 70 | 2d 39 34 2e 0a 3b 3b 3b |5; 1-Sep|-94..;;;|
|000000f0| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|00000100| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|00000110| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000120| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000130| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 38 2e 0a |st in Em|acs 18..|
|00000140| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000150| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000160| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000170| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|00000180| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|00000190| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. | (str|
|000001a0| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|000001b0| 76 65 72 73 69 6f 6e 20 | 22 31 39 22 29 29 29 0a |version |"19"))).|
|000001c0| 20 20 20 20 28 65 72 72 | 6f 72 20 22 54 68 69 73 | (err|or "This|
|000001d0| 20 66 69 6c 65 20 77 61 | 73 20 63 6f 6d 70 69 6c | file wa|s compil|
|000001e0| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 20 31 39 2e |ed for E|macs 19.|
|000001f0| 22 29 29 0a 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |"))..(by|te-code |
|00000200| 22 c0 c1 21 88 c0 c2 21 | 87 22 20 5b 72 65 71 75 |"..!...!|." [requ|
|00000210| 69 72 65 20 63 6c 20 63 | 6c 2d 31 39 5d 20 32 29 |ire cl c|l-19] 2)|
|00000220| 0a 28 64 65 66 76 61 72 | 20 73 75 6e 70 72 6f 2d |.(defvar| sunpro-|
|00000230| 73 70 61 72 63 77 6f 72 | 6b 73 2d 6f 70 73 20 27 |sparcwor|ks-ops '|
|00000240| 28 22 71 75 69 74 22 20 | 22 68 69 64 65 22 20 22 |("quit" |"hide" "|
|00000250| 65 78 70 6f 73 65 22 20 | 22 50 45 49 5f 43 4c 4f |expose" |"PEI_CLO|
|00000260| 53 45 22 20 22 50 45 49 | 5f 4f 50 45 4e 22 20 22 |SE" "PEI|_OPEN" "|
|00000270| 50 45 49 5f 4e 4f 50 22 | 29 20 22 5c 0a 54 68 65 |PEI_NOP"|) "\.The|
|00000280| 20 54 6f 6f 6c 54 61 6c | 6b 20 6f 70 65 72 61 74 | ToolTal|k operat|
|00000290| 69 6f 6e 73 20 74 68 61 | 74 20 61 72 65 20 68 61 |ions tha|t are ha|
|000002a0| 6e 64 6c 65 64 2e 22 29 | 0a 28 64 65 66 76 61 72 |ndled.")|.(defvar|
|000002b0| 20 73 75 6e 70 72 6f 2d | 73 70 61 72 63 77 6f 72 | sunpro-|sparcwor|
|000002c0| 6b 73 2d 63 61 6c 6c 62 | 61 63 6b 73 20 27 28 73 |ks-callb|acks '(s|
|000002d0| 70 2d 73 77 2d 71 75 69 | 74 2d 68 61 6e 64 6c 65 |p-sw-qui|t-handle|
|000002e0| 72 20 73 70 2d 73 77 2d | 68 69 64 65 2d 68 61 6e |r sp-sw-|hide-han|
|000002f0| 64 6c 65 72 20 73 70 2d | 73 77 2d 65 78 70 6f 73 |dler sp-|sw-expos|
|00000300| 65 2d 68 61 6e 64 6c 65 | 72 20 73 70 2d 73 77 2d |e-handle|r sp-sw-|
|00000310| 63 6c 6f 73 65 2d 68 61 | 6e 64 6c 65 72 20 73 70 |close-ha|ndler sp|
|00000320| 2d 73 77 2d 2d 6f 70 65 | 6e 2d 68 61 6e 64 6c 65 |-sw--ope|n-handle|
|00000330| 72 20 73 70 2d 73 77 2d | 6e 6f 70 2d 68 61 6e 64 |r sp-sw-|nop-hand|
|00000340| 6c 65 72 29 20 22 5c 0a | 54 68 65 20 54 6f 6f 6c |ler) "\.|The Tool|
|00000350| 54 61 6c 6b 20 6f 70 65 | 72 61 74 69 6f 6e 73 20 |Talk ope|rations |
|00000360| 74 68 61 74 20 61 72 65 | 20 68 61 6e 64 6c 65 64 |that are| handled|
|00000370| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 73 75 6e 70 |.").(def|var sunp|
|00000380| 72 6f 2d 73 70 61 72 63 | 77 6f 72 6b 73 2d 69 6e |ro-sparc|works-in|
|00000390| 76 6f 63 61 74 69 6f 6e | 2d 63 6f 75 6e 74 20 6e |vocation|-count n|
|000003a0| 69 6c 20 22 5c 0a 54 68 | 65 20 6e 75 6d 62 65 72 |il "\.Th|e number|
|000003b0| 20 6f 66 20 58 45 6d 61 | 63 73 65 6e 20 69 6e 76 | of XEma|csen inv|
|000003c0| 6f 6b 65 64 20 76 69 61 | 20 74 68 65 20 53 50 41 |oked via| the SPA|
|000003d0| 52 43 77 6f 72 6b 73 20 | 4d 61 6e 61 67 65 72 2e |RCworks |Manager.|
|000003e0| 22 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |").(byte|-code ".|
|000003f0| c1 4d 88 c2 c3 4d 88 c4 | c5 4d 88 c6 c7 4d 88 c8 |.M...M..|.M...M..|
|00000400| c9 4d 88 ca cb 4d 88 cc | cd ce 21 21 88 cc cd cf |.M...M..|..!!....|
|00000410| 21 21 88 cc cd d0 21 21 | 88 cc cd d1 21 21 88 cc |!!....!!|....!!..|
|00000420| cd d2 21 21 88 cc cd d3 | 21 21 87 22 20 5b 73 70 |..!!....|!!." [sp|
|00000430| 2d 73 77 2d 71 75 69 74 | 2d 68 61 6e 64 6c 65 72 |-sw-quit|-handler|
|00000440| 20 23 5b 28 6d 73 67 20 | 70 61 74 29 20 22 c0 09 | #[(msg |pat) "..|
|00000450| c2 5c 22 88 c3 20 87 22 | 20 5b 72 65 74 75 72 6e |.\".. ."| [return|
|00000460| 2d 74 6f 6f 6c 74 61 6c | 6b 2d 6d 65 73 73 61 67 |-tooltal|k-messag|
|00000470| 65 20 6d 73 67 20 72 65 | 70 6c 79 20 73 61 76 65 |e msg re|ply save|
|00000480| 2d 62 75 66 66 65 72 73 | 2d 6b 69 6c 6c 2d 65 6d |-buffers|-kill-em|
|00000490| 61 63 73 5d 20 33 5d 20 | 73 70 2d 73 77 2d 68 69 |acs] 3] |sp-sw-hi|
|000004a0| 64 65 2d 68 61 6e 64 6c | 65 72 20 23 5b 28 6d 73 |de-handl|er #[(ms|
|000004b0| 67 20 70 61 74 29 20 22 | c0 09 c2 5c 22 88 c3 c4 |g pat) "|...\"...|
|000004c0| c5 20 5c 22 87 22 20 5b | 72 65 74 75 72 6e 2d 74 |. \"." [|return-t|
|000004d0| 6f 6f 6c 74 61 6c 6b 2d | 6d 65 73 73 61 67 65 20 |ooltalk-|message |
|000004e0| 6d 73 67 20 72 65 70 6c | 79 20 6d 61 70 63 61 72 |msg repl|y mapcar|
|000004f0| 20 6d 61 6b 65 2d 66 72 | 61 6d 65 2d 69 6e 76 69 | make-fr|ame-invi|
|00000500| 73 69 62 6c 65 20 66 72 | 61 6d 65 2d 6c 69 73 74 |sible fr|ame-list|
|00000510| 5d 20 33 5d 20 73 70 2d | 73 77 2d 65 78 70 6f 73 |] 3] sp-|sw-expos|
|00000520| 65 2d 68 61 6e 64 6c 65 | 72 20 23 5b 28 6d 73 67 |e-handle|r #[(msg|
|00000530| 20 70 61 74 29 20 22 c0 | 09 c2 5c 22 88 c3 c4 c5 | pat) ".|..\"....|
|00000540| 20 5c 22 87 22 20 5b 72 | 65 74 75 72 6e 2d 74 6f | \"." [r|eturn-to|
|00000550| 6f 6c 74 61 6c 6b 2d 6d | 65 73 73 61 67 65 20 6d |oltalk-m|essage m|
|00000560| 73 67 20 72 65 70 6c 79 | 20 6d 61 70 63 61 72 20 |sg reply| mapcar |
|00000570| 6d 61 6b 65 2d 66 72 61 | 6d 65 2d 76 69 73 69 62 |make-fra|me-visib|
|00000580| 6c 65 20 66 72 61 6d 65 | 2d 6c 69 73 74 5d 20 33 |le frame|-list] 3|
|00000590| 5d 20 73 70 2d 73 77 2d | 63 6c 6f 73 65 2d 68 61 |] sp-sw-|close-ha|
|000005a0| 6e 64 6c 65 72 20 23 5b | 28 6d 73 67 20 70 61 74 |ndler #[|(msg pat|
|000005b0| 29 20 22 c0 09 c2 5c 22 | 88 c3 c4 c5 20 5c 22 87 |) "...\"|.... \".|
|000005c0| 22 20 5b 72 65 74 75 72 | 6e 2d 74 6f 6f 6c 74 61 |" [retur|n-toolta|
|000005d0| 6c 6b 2d 6d 65 73 73 61 | 67 65 20 6d 73 67 20 72 |lk-messa|ge msg r|
|000005e0| 65 70 6c 79 20 6d 61 70 | 63 61 72 20 69 63 6f 6e |eply map|car icon|
|000005f0| 69 66 79 2d 66 72 61 6d | 65 20 66 72 61 6d 65 2d |ify-fram|e frame-|
|00000600| 6c 69 73 74 5d 20 33 5d | 20 73 70 2d 73 77 2d 6f |list] 3]| sp-sw-o|
|00000610| 70 65 6e 2d 68 61 6e 64 | 6c 65 72 20 23 5b 28 6d |pen-hand|ler #[(m|
|00000620| 73 67 20 70 61 74 29 20 | 22 c0 09 c2 5c 22 88 c3 |sg pat) |"...\"..|
|00000630| c4 c5 20 5c 22 87 22 20 | 5b 72 65 74 75 72 6e 2d |.. \"." |[return-|
|00000640| 74 6f 6f 6c 74 61 6c 6b | 2d 6d 65 73 73 61 67 65 |tooltalk|-message|
|00000650| 20 6d 73 67 20 72 65 70 | 6c 79 20 6d 61 70 63 61 | msg rep|ly mapca|
|00000660| 72 20 64 65 69 63 6f 6e | 69 66 79 2d 66 72 61 6d |r deicon|ify-fram|
|00000670| 65 20 66 72 61 6d 65 2d | 6c 69 73 74 5d 20 33 5d |e frame-|list] 3]|
|00000680| 20 73 70 2d 73 77 2d 6e | 6f 70 2d 68 61 6e 64 6c | sp-sw-n|op-handl|
|00000690| 65 72 20 23 5b 28 6d 73 | 67 20 70 61 74 29 20 22 |er #[(ms|g pat) "|
|000006a0| c0 09 c2 5c 22 88 c3 87 | 22 20 5b 72 65 74 75 72 |...\"...|" [retur|
|000006b0| 6e 2d 74 6f 6f 6c 74 61 | 6c 6b 2d 6d 65 73 73 61 |n-toolta|lk-messa|
|000006c0| 67 65 20 6d 73 67 20 72 | 65 70 6c 79 20 6e 69 6c |ge msg r|eply nil|
|000006d0| 5d 20 33 5d 20 72 65 67 | 69 73 74 65 72 2d 74 6f |] 3] reg|ister-to|
|000006e0| 6f 6c 74 61 6c 6b 2d 70 | 61 74 74 65 72 6e 20 6d |oltalk-p|attern m|
|000006f0| 61 6b 65 2d 74 6f 6f 6c | 74 61 6c 6b 2d 70 61 74 |ake-tool|talk-pat|
|00000700| 74 65 72 6e 20 28 63 61 | 74 65 67 6f 72 79 20 54 |tern (ca|tegory T|
|00000710| 54 5f 48 41 4e 44 4c 45 | 20 73 63 6f 70 65 20 54 |T_HANDLE| scope T|
|00000720| 54 5f 53 45 53 53 49 4f | 4e 20 6f 70 20 22 71 75 |T_SESSIO|N op "qu|
|00000730| 69 74 22 20 63 61 6c 6c | 62 61 63 6b 20 73 70 2d |it" call|back sp-|
|00000740| 73 77 2d 71 75 69 74 2d | 68 61 6e 64 6c 65 72 29 |sw-quit-|handler)|
|00000750| 20 28 63 61 74 65 67 6f | 72 79 20 54 54 5f 48 41 | (catego|ry TT_HA|
|00000760| 4e 44 4c 45 20 73 63 6f | 70 65 20 54 54 5f 53 45 |NDLE sco|pe TT_SE|
|00000770| 53 53 49 4f 4e 20 6f 70 | 20 22 68 69 64 65 22 20 |SSION op| "hide" |
|00000780| 63 61 6c 6c 62 61 63 6b | 20 73 70 2d 73 77 2d 68 |callback| sp-sw-h|
|00000790| 69 64 65 2d 68 61 6e 64 | 6c 65 72 29 20 28 63 61 |ide-hand|ler) (ca|
|000007a0| 74 65 67 6f 72 79 20 54 | 54 5f 48 41 4e 44 4c 45 |tegory T|T_HANDLE|
|000007b0| 20 73 63 6f 70 65 20 54 | 54 5f 53 45 53 53 49 4f | scope T|T_SESSIO|
|000007c0| 4e 20 6f 70 20 22 65 78 | 70 6f 73 65 22 20 63 61 |N op "ex|pose" ca|
|000007d0| 6c 6c 62 61 63 6b 20 73 | 70 2d 73 77 2d 65 78 70 |llback s|p-sw-exp|
|000007e0| 6f 73 65 2d 68 61 6e 64 | 6c 65 72 29 20 28 63 61 |ose-hand|ler) (ca|
|000007f0| 74 65 67 6f 72 79 20 54 | 54 5f 48 41 4e 44 4c 45 |tegory T|T_HANDLE|
|00000800| 20 73 63 6f 70 65 20 54 | 54 5f 53 45 53 53 49 4f | scope T|T_SESSIO|
|00000810| 4e 20 6f 70 20 22 50 45 | 49 5f 43 4c 4f 53 45 22 |N op "PE|I_CLOSE"|
|00000820| 20 63 61 6c 6c 62 61 63 | 6b 20 73 70 2d 73 77 2d | callbac|k sp-sw-|
|00000830| 63 6c 6f 73 65 2d 68 61 | 6e 64 6c 65 72 29 20 28 |close-ha|ndler) (|
|00000840| 63 61 74 65 67 6f 72 79 | 20 54 54 5f 48 41 4e 44 |category| TT_HAND|
|00000850| 4c 45 20 73 63 6f 70 65 | 20 54 54 5f 53 45 53 53 |LE scope| TT_SESS|
|00000860| 49 4f 4e 20 6f 70 20 22 | 50 45 49 5f 4f 50 45 4e |ION op "|PEI_OPEN|
|00000870| 22 20 63 61 6c 6c 62 61 | 63 6b 20 73 70 2d 73 77 |" callba|ck sp-sw|
|00000880| 2d 6f 70 65 6e 2d 68 61 | 6e 64 6c 65 72 29 20 28 |-open-ha|ndler) (|
|00000890| 63 61 74 65 67 6f 72 79 | 20 54 54 5f 48 41 4e 44 |category| TT_HAND|
|000008a0| 4c 45 20 73 63 6f 70 65 | 20 54 54 5f 53 45 53 53 |LE scope| TT_SESS|
|000008b0| 49 4f 4e 20 6f 70 20 22 | 50 45 49 5f 4e 4f 50 22 |ION op "|PEI_NOP"|
|000008c0| 20 63 61 6c 6c 62 61 63 | 6b 20 73 70 2d 73 77 2d | callbac|k sp-sw-|
|000008d0| 6e 6f 70 2d 68 61 6e 64 | 6c 65 72 29 5d 20 33 29 |nop-hand|ler)] 3)|
|000008e0| 0a 28 66 73 65 74 20 27 | 73 75 6e 70 72 6f 2d 73 |.(fset '|sunpro-s|
|000008f0| 70 61 72 63 77 6f 72 6b | 73 2d 68 61 6e 64 6c 65 |parcwork|s-handle|
|00000900| 2d 63 6f 6d 6d 61 6e 64 | 2d 6c 69 6e 65 20 23 5b |-command|-line #[|
|00000910| 28 61 72 67 29 20 22 08 | 11 5c 6e 41 89 12 87 22 |(arg) ".|.\nA..."|
|00000920| 20 5b 61 72 67 20 2a 73 | 75 6e 70 72 6f 2d 73 70 | [arg *s|unpro-sp|
|00000930| 61 72 63 77 6f 72 6b 73 | 2d 69 6e 76 6f 63 61 74 |arcworks|-invocat|
|00000940| 69 6f 6e 2d 63 6f 75 6e | 74 2a 20 63 6f 6d 6d 61 |ion-coun|t* comma|
|00000950| 6e 64 2d 6c 69 6e 65 2d | 61 72 67 73 2d 6c 65 66 |nd-line-|args-lef|
|00000960| 74 5d 20 32 20 22 5c 0a | 48 61 6e 64 6c 65 20 74 |t] 2 "\.|Handle t|
|00000970| 68 65 20 53 50 41 52 43 | 77 6f 72 6b 73 20 4d 61 |he SPARC|works Ma|
|00000980| 6e 61 67 65 72 2d 73 70 | 65 63 69 66 69 63 20 63 |nager-sp|ecific c|
|00000990| 6f 6d 6d 61 6e 64 20 6c | 69 6e 65 20 61 72 67 75 |ommand l|ine argu|
|000009a0| 6d 65 6e 74 73 2e 22 5d | 29 0a 28 62 79 74 65 2d |ments."]|).(byte-|
|000009b0| 63 6f 64 65 20 22 c0 c1 | c2 0b 5c 22 21 13 c0 87 |code "..|..\"!...|
|000009c0| 22 20 5b 70 75 72 65 63 | 6f 70 79 20 61 70 70 65 |" [purec|opy appe|
|000009d0| 6e 64 20 28 28 22 2d 73 | 77 74 6d 22 20 2e 20 73 |nd (("-s|wtm" . s|
|000009e0| 75 6e 70 72 6f 2d 73 70 | 61 72 63 77 6f 72 6b 73 |unpro-sp|arcworks|
|000009f0| 2d 68 61 6e 64 6c 65 2d | 63 6f 6d 6d 61 6e 64 2d |-handle-|command-|
|00000a00| 6c 69 6e 65 29 29 20 63 | 6f 6d 6d 61 6e 64 2d 73 |line)) c|ommand-s|
|00000a10| 77 69 74 63 68 2d 61 6c | 69 73 74 5d 20 34 29 0a |witch-al|ist] 4).|
+--------+-------------------------+-------------------------+--------+--------+
